ل ۲۰۹4/۰۰۸ 
E SS O a‏ 
لصف ال التانوی الحزء الخاص بلتعلم الالکتروني 
٠ _ : ۱‏ 


وت ادلشار ی ددمت ف اوھ 
البجع ال وساف دوق فت 


1 E 


Visual Basic 2005 


Express Editlon 


عداو و برج:_ 
التدريب اميد انى إمدرسه بو[ سعيد ااثانوية الكسكرية بنيز 


فق دا< إشراف خارجي: 
hne‏ أ / مكمه عبد العال 
أ 1 


الصف الأول الثانوي المشاريع البرمجية للفصلين الدراسين الأول و الثاذ 


Content egal 


تو.جد آمثلة لمشاريع آخری تجدها في موقع الوزارة 
WW. OE. HOVE‏ 


Visual Basic NET ءiخٿسږlڊ مظدمة عن البرمجة‎ GD 


يفيه حساب الزمن بالذائية احنبارا من ناري محدد 

يفيه حساب ائزمن بائثائية من اى تاريخ باستحدام النتيج 
كيفبه نصميم مختبر لجدول الضرب الاساسي 

كبفبك تصميم مخنبر لجدول الضرب منطور 

كيفية نصميم اله حاسبة 

فيه نصميم برئامج لعرض اعلام الدول 

كيفبة نصميم برنامج عرض اعلام الدول متطور 


گيفيه نصميم إختبار خاص باعدلام الدول 


ّ۳ 
کی 
ا 
کی 
ا 
r”‏ 
کج 
ا 


الشروعات برجي | Proje‏ 


مشروع " كيفية تصميم مختبر لجدول الضرب الأساسي " 
مشروع " كيفية تصميم مختبر لجدول الضرب المتطور" 
مشروع " كيفية عمل لعبة متطورة " 
مشروع " كيفية تصميم برنامج لعرض اعلام الدول " 
مشروع " كيفية تصميم برنامج لعرض أعلام الدول متطور" FlagsB‏ 6_ 
مشروع " كيفية تصميم إختبار خاص بأعلام الدول " 
مشروع " كيفية حساب الزمن بالثانية اعتباراً من تاريخ محدد " | 1 Date Calculator‏ | 8 __ 
مشروع " كيفية حساب الزمن بالثانية من أي تاريخ بإستخدام النتيج" _|_______2 Date Calculator‏ 9__ 


مشروع " كيفية تصميم آله حاسبة " _ 
- غير موجود فى توزيع المنهج - 


ملحوظة : المشروع ( الأول - الثاني ) في الفصل الدراسي الأول » باقى المشاريع في الفصل الدارسي الثاني . 
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الصف الأول الثانوي المشاريع البرمجية للفصلين الدراسين الأول و الثاذ 
الاهداه 


في نهاية دراسة اللمشاريع البرعجية ينبغي أن يكون الطالب قادرا على آن . 


-١‏ يتقن التعامل مع نافذة النموذج. 
٣-يتقن‏ التعامل مع الشاشات الأفتتاحية للىرنامج. 

۳-يتعرف كيفية أستخدام الدوال و الوسائل. 

>-يتقن التعامل مع الكواد البرمحية. 

٥٠-يطور‏ فى عمل المشاريع البرمجية. 

-٦‏ يطبق مفهوم تخطيط البرامج واستخدام الخوارزميات. 

۷-يدرس أحدث لغات البرمحة المرتىطة بالإنترنت. 

۸-يبين مفهوم الوسائط المتعددة واستخداماتها. 

-٩‏ يتبع الأسلوب العملي في التفكير لحل المشكلات. 

.۷8.[6) يستخدم الأسلوب العلمي في التفكير عند آي مشكلة بلغة‎ -٠ 
يوظف دوال لغة البيزيك المرئي في البرامج التي يكتبها.‎ -١ 

۳ يصيخ تعليمات لغة البيزيك المرئي بصورة صحيحة. 
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ultiplicatior cxaminer 


f TaxfBoxl TEREZ J 


Result i 


س 


[ TextBoxa 1 
EE Muitplication Examiner 


| The Result of Muitplication of 4 by = کڪ‎ 


HEHesylt Sorry YFrong Result 2 The TrFuFE Result 32 


Public Class form1l 
Dim n, m As Integer 
Private Sub forml1 Load (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles MyBase. Load 
Randomi ze () 
n = 1 + 12 * Rnd() 
m = 1 + 12 * Rnd() 
txtquestion. Text = ("The Result of Muitplication of " + CStr (n) + " by " 
+ CStr (m) + " = ") 
End Sub 


Private Sub btnnew Click (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles btnnew.Click 
Randomi ze () 
n = 1 + 12 * Rnd() 
m = 1 + 12 * Rnd() 
txtquestion. Text = ("The Result of Muitplication of " + CStr (n) + " by " 
+ CStr (m) + " = ") 
txtvalue. Text = '"""' 
txtresponse. Text = "" 
End Sub 


Private Sub btnSubmit Click (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles btnsubmit. Click 
Dim result, result2 As Integer 
result = n * m 
Try 
result2 = Convert.ToInt32 (txtvalue. Text) 
If result = result2 Then 


txtresponse. Text = "Congratulation , Result True" 
Else 
txtresponse. Text = "Sorry Wrong Result , The True Result " + 
CStr (result) + "" 
End If 
Catch ex As Exception 
txtresponse. Text = "Plase Enter The Result in Text" 
End Try 
End Sub 
'programming Mohamed Ahmed Youssef 
End Class 
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ultiplication Examiner 2 


Multiplication Examiner Formî | - 


This application will help ¥ouı to learn muutiplication . 
| Standard level is used for 12*12 mulitiplication table. 
Moderate level i5 used For mulitiplication of Z digit numbers. 
Advanced level is used for multiplication of 3 digit . 


Public Class Form1l 


Private Sub Button1l Click (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles Button1l.Click 
Form2. Show () 
End Sub 


Private Sub Forml1 Load (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles MyBase. Load 
Buttonl. Select () 
RadioButtonl. Checked = True 
End Sub 


'programming Mohamed Ahmed Youssef 
End Class 
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El Multiplication Examiner 


Î textbox? I 
1 


|The Result of multiplication 7 by 5 = 


| textbox TTT subme_| 


Plase Enter the Result 


(textboxa. f Button? | New Yalue | 


Public Class Form2 
Dim nl, n2 As Integer 
Private Sub Form2 Load(ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles MyBase. Load 
Call rndnumber () 
End Sub 


Private Sub Button2 Click (ByVal sender As System. Object, ByVal e As 
System. EventArgs) Handles Button2.Click 
Call rndnumber () 
End Sub 


Private Sub Button1 Click (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles Button1l.Click 
Dim r1, r2 As Integer 
r1 = nl * n2 


r2 = TextBoOox2. Text 
If r1 = r2 Then 


TextBox3. Text = "congratulation , True Result" 
Else 
TextBox3. Text = "Sorry ,Wronge Result the True Resulte " + 
CSEE (ELI) ET 
End If 


Catch ex As Exception 
MsgBox ("Enter the answer" ) 
Exit Sub 
End Try 
End Sub 
Sub rndnumber () 
Dim x As Integer 
Buttonl. Select () 


TextBox3. Text = "Plase Enter the Result" 

If Form1. RadioButtonl. Checked = True Then 
±» = 10 

End If 

If Form1. RadioButton2. Checked = True Then 
× = 100 

End If 

If Form1. RadioButton3. Checked = True Then 
× = 100 

End If 


Randomi ze () 
n1 = 1 + x * Rnd() 
n2 = 1 + x * Rnd() 


TextBoxl. Text = "The Result of multiplication " + CStr (nl) + " by " + 
CStr (n2) + " = " 
TextBox2. Text = "" 
End Sub 
'programming Mohamed Ahmed Youssef 
End Class 
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LOS 


Try Toa 
Press ME 


ESS 


. Ibihatis | 


Timer 1 TimErê‏ و 


Public Class Form1l 
Dim hatis As Integer = 0 


Private Sub Forml1 Load(ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles MyBase. Load 
Me. Timerl1l.Enabled = False 
Me. Timer2.Enabled = False 
Me. Butpress.Enabled = False 
End Sub 


Private Sub Butpress Click (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles Butpress.Click 
hatis = hatis + 1 
1lblhatis. Text = Format (hatis, "the hatis = #") 
End Sub 


Private Sub Butstart Click (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles Butstart.Click 
Randomi ze () 
Me.hatis = 0 
1lblhatis. Text = Format (hatis, "the hatis = #") 
Me. Timerl1l.Enabled = True 
Me. Timer2.Enabled = True 
Me. Butpress.Enabled = True 
Me. Butstart.Enabled = False 
End Sub 


Private Sub Timer2 Tick (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles Timer2. Tick 
Me. Timerl1l.Enabled = False 
Me. Timer2.Enabled = False 
Me. Butpress.Enabled = False 
Me. Butstart.Enabled = True 
End Sub 


Private Sub Timerl Tick (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles Timerl. Tick 
Me. Butpress.Left = 200 * Rnd() 
Me. Butpress. Top = 200 * Rnd() 
Beep () 
End Sub 
"Programming "Mohamed Youssef" 
End Class 
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Hl Game 


[ Button 


O standard O Advanced 


i 


f RadioButton 1 ا‎ | RadioButton? 


Public Class Form1l 


Private Sub Button1l Click (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles Button1l.Click 
Form2. Show () 
End Sub 


Private Sub Forml1 Load (ByVal sender As System. Object, ByVal e As 
System. EventArgs) Handles MyBase. Load 
RadioButtonl. Checked = True 
Buttonl . Select () 
End Sub 


'programming Mohamed Ahmed Youssef 
End Class 


: Mohamed_youssef_1988@yahoo.com 


EE] Game E ا‎ | 


f Butstart ا أ‎ 


[Butpress | 


f ibihits ۱ 


Timer 1l TiIMErZ 


Public Class Form2 
Dim hits As Integer = 0 
Private Sub Form2 Load (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles MyBase. Load 
Me. Timerl. Interval = 1000 
Me. Timer2. Interval = 15000 
Me. Timerl1l.Enabled = False 
Me. Timer2.Enabled = False 
Me. Butpress.Enabled = False 
End Sub 


Private Sub Butstart Click (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles Butstart.Click 
If Form1. RadioButtonl. Checked = True Then 
Me. Timerl. Interval = 2000 
End If 
Me. Timerl1l.Enabled = True 
Me. Timer2.Enabled = True 
Me. Butpress.Enabled = True 
Me. Butstart.Enabled = False 
End Sub 


Private Sub Butpress Click (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles Butpress.Click 
hits = hits + 1 
Me. lblhits. Text = Format (hits, "Number of hits = # ") 
End Sub 


Private Sub Timer2 Tick (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles Timer2. Tick 
Me. Timerl.Enabled = False 
Me. Timer2.Enabled = False 
Me. Butpress.Enabled = False 
Me. Butstart. Enabled True 
End Sub 


Private Sub Timerl Tick (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles Timerl. Tick 
Randomi ze () 
Me. Butpress.Left = 200 * Rnd() 
Me. Butpress.Top = 200 * Rnd() 
End Sub 
'programming Mohamed Ahmed Youssef 
End Class 
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SES 


REE 


TextBox1 


a 
H4 
E 


f PictureB ox1 


| _ id 1 
(Bufonî 


You have to copy contents of subdirectory 1mages 1nto C:\lmages 


Public Class Form1l 


Private Sub Button1l Click (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles Button1l.Click 
Dim a As String 
a = TextBoxl . Text 
Select Case a 
Case ET rr 


PictureBox1l. Load ("c: \images\australia. png") 
Case اليرازيل"‎ " 
PictureBoxl1l. Load ("c: \images\brazil. png") 
Case الصن"‎ " 
PictureBox1l. Load ("c: \images\china.png") 
Case ا‎ rr 
PictureBox1. Load ("c: \images\hungary.png") 
Case El rr 
PictureBox1l. Load ("c: \images\india.png") 
Case ll Ul 
PictureBox1l. Load ("c: \images\ireland. png") 
Case ll lt 
PictureBox1l. Load ("c: \images\islanda. png") 


Case LT rr 
PictureBox1l. Load ("c: 

EN rr 
PictureBox1l. Load ("c: 
الجنوبية كوريا" هئج‎ " 


\images\italy.png") 
Case 
\images\ japan. png" ) 
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\images\korea south. png") 
\images \kuiet . png" ) 
\images\ liberia. png") 

\ images \russia.png") 
\images \southafrica. png") 


\images\spain. png") 
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PictureBoxl. Load ("c: 


Case 


E < N 


PictureBox1l. Load ("c: 


Case "lızuuld" 


PictureBox1l. Load ("c: 


Case "lıwgرy"‎ 


PictureBox1l. Load ("c: 


Case TT ET 1 


PictureBox1l. Load ("c: 


Case EE اسا‎ 1 


PictureBox1l. Load ("c: 


Case "lSj" 
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PictureBoxl. Load ("c: \images\united states.png") 


Case "قطر"‎ 
PictureBoxl1l. Load ("c: \images\Qatar. png") 
Case العراق"‎ " 
PictureBoxl1l. Load ("c: \images\ Iraq. png") 
Case "ıڍıصn"‎ 
PictureBoxl. Load ("c: \images\Egypt .png") 
Case ES rr 
PictureBox1l. Load ("c: \ images \ Yemen . png") 
Case EE 
PictureBox1l. Load ("c: \images \Lebea. png") 
Case "jùlnse" 
PictureBox1l . Load ("c: \images\aman. png") 
Case rr tL 
PictureBoxl. Load ("c: \images\Syria.png") 
Case "فلسطن"‎ 
PictureBox1l. Load ("c: \images\Flesten. png") 
Case E rr 
PictureBox1l. Load ("c: \images|\ jazaear. png") 
Case Sl lo" 
PictureBox1l. Load ("c: \images\elmarat .png") 
Case Else 
PictureBoxl1l. Load ("c: \images \wrong. png") 
End Select 
End Sub 


Private Sub Forml1 Load (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles MyBase. Load 
Me. Text="Flags'" 
'programming Mohamed Ahmed Youssef 
End Sub 
End Class 
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سسس 


: EEE | 


ا 
ا 


[` ComboBox? | 


| 
IN 


You have to copy contents of subdirectory images 1nto C:images 


Public Class Form1l 


Private Sub ComboBox1 SelectedIndexChanged (ByVal sender As System. Ob ject, 
ByVal e As System.EventArgs) Handles ComboBoxl1l. SelectedIndexChanged 
Dim a As String 
a = ComboBox1. Text 
PictureBoxl. Load ("c: \images\l" & a & ".png'") 
End Sub 


Private Sub Forml1 Load (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles MyBase. Load 
0 1 Ea ا‎ 


1 E 
With ComboBox 1 
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(" اسبانيا'"(Add.‏ 
(" استر اليا" )كAd.‏ 
(" الحنوبيه_افريقيا'" )للكA4.‏ 
.AGd( oS)‏ 
(" الامار ات" )كAd.‏ 
(" البرازيل" Add)‏ . 
(" الجز اثر" )لككA.‏ 
(" السود ان")لdلكA.‏ 
(" الصن") Add‏ . 
(" العراق")لككةA.‏ 
(" الكويت'" Add)‏ . 
(" اkمجر" Add)‏ . 

. Add ) المغرب'"‎ "( 

. Add) الهند"‎ "( 
.AQA( Sl N Nl oil 1) 
.Aلdلل)"نابايلا‎ ۳) 
.Addل اليمن")‎ 1) 
.A22) انز ان"‎ ( 
.Add)"ادنلريا‎ "( 
.Adكd‎ ) ايسلند ا"‎ "( 
.Add)"'ايلاطيا‎ "( 
. Add) ("تونس"‎ 
.Addك) روسيا'"‎ "( 

( "سو ريا" .Add)‏ 
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. [tems 
. [tems 
. ITtems 
. [tems 
. [tems 
. [tems 
. [tems 
. [tems 
. [tems 
. [tems 
. [tems 
. [tems 
. [tems 
. [tems 
. [tems 
. [tems 
. [tems 
. [tems 
. [tems 
. Items 
. [tems 
. Items 
. Items 
. [tems 


. Ttems . Add ("jاnع‎ ") 

. Ttems . Add ("'jطسلف”)‎ 

. Items . Add )"”تقطر"(‎ 

. Items. Add ("lİlıروک الجحنوبيه‎ "( 
. Items .Add ("jli") 

. Items. Add ("lızuuل”)‎ 

. Items. Add ("lul") 

. Items .Add ("رص”an")‎ 

. Text = "رصan"‎ 

.RightToLleft = Windows.Forms. RightToLeft. Yes 
.ForeColor = Color. Red 


End With 
Me.Text = "flags" 
End Sub 
'programming Mohamed Ahmed Youssef 
End Class 
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Flags Examiner 


[Submit f Button? 


أختر إخدك الدول 


| Next Flag ۰ [ Buttond ا‎ 


أ 


د س ا س ب ت س 
EEE thë name of country which Hag is shown above. /‏ 
| 


آ 
| 


Right Answers Wrong Answers 1 1‏ 1 ا 
aS SED ESD GO‏ 


You have to copy contents of subdirectory 1mages into C:\images 


Public Class Form1l 
E E E E TTS 
'w=Wrong Answer 
'r=Right Answer 
Dim r, w As Integer 
EN E ECO 
Dim a As String 
E TT O 
Dim nameflage As String 
Private Sub Forml1 Load (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles MyBase. Load 
E EL DES 
With ComboBox1 
. ITtems.Add("lıilıwا‎ ”") 
. Items. Add ("lاuJا اٺسشتر‎ ") 
. 1[tems. AQdd("اuقيرفا_هيبونحجلا‎ "( 
. Items .Add ("jدرڻٺل|‎ ”") 
. Items .Add ("aI الامار‎ "( 
. Items. Add ("Jaıjlرلا‎ ") 
. Items. Add افر"(‎ jzèلklا‎ ") 
. Items . Add ("j| السود‎ "( 
. Items . Add ("jiص”adا‎ ") 
. Items. Add ("JI رEgلا‎ ”") 
. Items . Add ("تıgSÛا|‎ ”) 
. Items .Add ار"(‎ ") 
. Items . Add ("برغمdلا‎ "( 
. Items .Add ("xıiqdا‎ ”") 
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. Items. Add ("تاlياإلولا_هدحتملا‎ "( 
. Items. Add ("jùlبيlaلlا‎ ") 

. Items . Add ("janıalا‎ ") 

. Items .Add ("j| اير‎ ") 

. Items. Add ("| xiلlرıيا‎ ”") 

. Items . Add ("| ilwaيıا‎ ") 

. Items. Add ("اuJllطيlا‎ ”") 

. ITtems . Add ("wig") 

. Items.Add("lıwgر")‎ 

. Items.Add("lıر‎ gw") 

. Items. Add ("jlمnعse‎ ") 

. ITtems . Add ("jùطسلف”"(‎ 

. Ttems. Add )"تقطر"(‎ 

. Items. Add ("lIlيروك الحنوبيه‎ "( 
. Items. Add ("jانiıل”)‎ 

. Items .Add ("lızud") 

. Items .Add ("luk") 

. Ttems. Add )"مص"(‎ 

Tel ST TT 


.RightToLleft = Windows.Forms. RightToLeft. Yes 


Strech 


a IS الور‎ 


.ForeColor = Color. Red 
End With 


الصورة عرض جعل' 


PictureBoxl.SizeMode = PictureBoxSizeMode. Stretchlmage 
TextBoxl. Text = "Choose the name of country which flag is shown above." 


LT E E E ETS 


Call Flageshow () 
End Sub 


Private Sub Button1 Click (ByVal sender As System.Object, ByVal e As 


System. EventArgs) Handles Button1l.Click 


E E E CC ET 


Call Flageshow () 


ComboBox1. Text = "jzخ| الدول |إجحدې”‎ ۳ 
TextBoxl. Text = "Choose the name of country which flag is shown above. " 
r= 0 
TextBox2.Text = r 
Ww = 0 
TextBox3. Text = w 
End Sub 


Private Sub Button2 Click (ByVal sender As System.Object, ByVal e As 


أ الا اسالا 4 


System. EventArgs) Handles Button2.Click 
Oo Ch 
a = ComboBox1l. Text 


If PictureBox1. ImageLocation = ("c:\images\" + a + ".png") Then 
TextBoxl. Text = "Congratulations. Right result . " 


7 = FF FF 1 
TextBOx2. Text = r 
Else 


TextBoxl. Text = "Sorry.Wrong answer.The right country is " + nameflage + 


wWw=w + 1 
TextBOox3. Text = w 
End If 
End Sub 


Private Sub Button3 Click (ByVal sender As System.Object, ByVal e As 


System. EventArgs) Handles Button3.Click 


E E a E YT 


Call Flageshow () 


ComboBox1. Text = "jخ|‎ ”٦ېدحج| الدول‎ 
TextBoxl. Text = "Choose the name of country which flag is shown above." 
End Sub 
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E‏ لار ناه 
Sub Flageshow ()‏ 


E E ا‎ 


Dim n As Integer 


الصور مربع فى عشوائية طريقة فى الدول الاعلام وضع' 


. Load ("c: \|images\|lu.J| رjîwا‎ .png") 


EE NT 


. Load ("c:\images\|Jaıjاl‎ رıل|‎ .png"”) 


البرازيل" 


. Load ("c: \images\jalJ! .png") 


< 0 rr 


. Load ("c:\images\jliıJ.png") 


1إ 1 ا 


. Load ("c: \images\دıiqd!‎ .png") 


ام 


. Load ("c: \images\|اI‎ ıilرııيا‎ .png") 


SE E 


. Load ("c: \images|\ا‎ ıدilwıl!l‎ .png") 


1 لى ا 


. Load ("c:\images\|lıJlطıl‎ .png") 


4 لاا | 4 


. Load ("c:\images\|jlبlılا‎ .png”") 


eT X | rr 


. Load ("c: \|images|laرgك_aيبونجلا‎ .pn3g"( 


اه و ا 


. Load ("c: \images\|iıgSJا‎ .png") 


E < ا‎ 


. Load ("c:\images\lıyuıJ.png") 


Ws | 


. Load ("c:\images\lıwو ر‎ .Png") 


E ا‎ 


. Load ("c: |images|laقتيرفا_ەیيبونجلا‎ .pn 9" ( 


e 


. Load ("c: \images\|lailıw! .png") 


4 از | ۸ 


. Load ("c:\images\|تlيllوgلاl_هدحجتملا‎ .pPn39"( 


e 


. Load ("c: \images\|رطi.png")‎ 


rr 1 rr 


. Load ("c: \images\J! رaJ|‎ .png”") 


2 0 أ 
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Randomi ze () 
n = Rnd() * 23 
Select Case n 
Case 1 
PictureBox1l 
nameflage = 
Case 2 
PictureBox1l 
nameflage = 
Case 3 
PictureBox1l 
nameflage = 
Case 4 
PictureBox1l 
nameflage = 
Case 5 
PictureBox1l 
nameflage = 
Case 6 
PictureBox1 
nameflage = 
Case 7 
PictureBox1l 
nameflage = 
Case 8 
PictureBox1l 
nameflage = 
Case 9 
PictureBox1l 
nameflage = 
Case 10 
PictureBox1l 
nameflage = 
Case 11 
PictureBox1l 
nameflage = 
Case 12 
PictureBox1l 
nameflage = 
Case 13 
PictureBox1l 
nameflage = 
Case 14 
PictureBox1l 
nameflage = 
Case 15 
PictureBox1l 
nameflage = 
Case 16 
PictureBox1l 
nameflage = 
Case 17 
PictureBox1l 
nameflage = 
Case 18 
PictureBox1l 
nameflage = 
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. Load ("c: \images\ر¬..png")‎ 
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. Load ("c: \images\| jlne .png") 
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. Load ("c:\images\lıر‎ gw .png") 
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. Load ("c: \imagesl\رiاl‎ j| .png”") 
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أ 
Load ("c: \images\wrong. png")‏ . 


Case 19 
PictureBox1l 
nameflage = 

Case 20 
PictureBox1l 
nameflage = 

Case 21 
PictureBox1l 
nameflage = 

Case 22 
PictureBox1l 
nameflage = 

Case 23 
PictureBox1l 
nameflage = 

Case 24 
PictureBox1l 
nameflage = 

Case 25 
PictureBox1l 
nameflage = 

Case 26 
PictureBox1l 
nameflage = 

Case Else 

e 
PictureBox1l 


End Select 
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Date Calculator 1 


Hl Date Calculator Form? | - 


5 Date Calculator 1 


| This Progrann is Used to Find the | 
ı number of elapsed seconds sine 


f TextBox! | the revolution day, 23/7/1952, Lill 


This Program is LIsed to Find the 
number of elapsed seconds sine 
the reyolution day,23,/ 1/1352, Lill 


| 
| List 
5 


| The difference = 1#7F366168 Seconds 
| The difference = 1777966168 Seconds 
| The difference = 1777966168 Seconds 
| The difference = 177966168 Seconds 


f ListBox ] 


Public Class Form1l 


Private Sub Button1l Click (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles Button1l.Click 

"Var a Resualt DateDiff 

Dim a As Long 

"Var a Resualt Const Date 

Dim d As Date 

4 > 23/7/19521 

'the function historical date 

a = DateDiff (DateInterval. Second, d, Now) 

"Result Date in ListBox1 

ListBoxl. Items. Add ("The difference = " & a & " Seconds") 
End Sub 


Private Sub Forml1 Load (ByVal sender As System. Object, ByVal e As 
System. EventArgs) Handles MyBase. Load 
Me.Text = "Date Calculator" 
Buttonl. Text = "Calculator" 
'format the text in top form 
TextBox1l. TextAlign = HorizontalAlignment . Center 
'selected the Calculator Button 
Buttonl . Select () 
End Sub 
"Programming Mohamed Ahmed Youssef 
End Class 
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Date Calculator 2 


HE Date Calculater ES 


(Datetimepicker1‏ ك 
سے ListBox]‏ 


2008 , نوفصبر 03 


listbox | 


RadioDays 


O Hours Radiohours 


RadioMinutes 


Public Class Form1l 
Dim d As Long 
Private Sub Button1l Click (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles Button1l.Click 
If Radiodays. Checked = True Then 
d = DateDiff (DateInterval. Day, DateTimePickerl. Value, Now) 
ListBoxl. Items. Add ("the difference " & d & " Day") 
End If 
If Radiohours. Checked = True Then 
d = DateDiff (DateInterval. Hour, DateTimePicker1l. Value, Now) 
ListBoxl. Items. Add ("the difference " &€ d &€ " Hour") 
End If 
If Radiominutes. Checked = True Then 
d = DateDiff (DateInterval.Minute, DateTimePickerl1l. Value, Now) 
ListBoxl. Items. Add ("the difference " & d &€ " Minute'"') 
End If 
If Radioseconds. Checked = True Then 
d = DateDiff (DateInterval. Second, DateTimePicker1l. Value, Now) 
ListBoxl. Items. Add ("the difference " & d & " Second") 
End If 
End Sub 


Private Sub Forml1 Load (ByVal sender As System.Object, ByVal e As 
System. EventArgs) Handles MyBase. Load 
DateTimePickerl. ShowCheckBox = True 
Me.Text = "Date Calculater" 
Buttonl. Text = "Calculater" 
Radiodays. Checked = True 
Buttonl. Select () 
End Sub 
"Programming "Mohamed Ahmed Youssef" 
End Class 
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الصف الأول الثانوي المشاريع البرمجية للفصلين الدراسين الأول و الثاذ 


الحو 
لتحميل المشروعات اليرمجياة ‏ (بصغة €×€.0 1ا96( 
مشروع " كيفية تصميم حتبر لجدول الضرب الأساسي " 1 Multiplication Examiner‏ 


http://serv1ices.moe.sov.es/vIisual book/first/Publish multiplicat1onExaminer.rar 


مشروع " كيفية تصميم حتبر لجدول الضرب المتطور" 2 Multiplication Examiner‏ 
http://serv1ices.moe.sov.es/visual book/first/Publish multiplicationExaminer2.rar‏ 


مشرو ع" كيفية عمل لعبة" 1 Game‏ 
http://services.moe. gov.eg/visual book/first/publish game.rar‏ 
مشروع " كيفية عمل لعبة متطورة" 2 Game‏ 
http://services.moe.gov.eg/visual book/first/publish game2.rar‏ 


مشروع " كيفية تصميم برنامج لعرض أعلام الدول " Flags A‏ 
http://services.moe.gov.eg/visual book/first/publish flags6a.rar‏ 


مشرو ع " كيفية تصميم برنامج لعرض أعلام الدول متطور" Flags B‏ 
http://services.moe.gov.eg/visual book/first/publish flags6b.rar‏ 


مشروع " كيفية تصميم إختبار خاص بأعلام الدول " Flags Examiner‏ 
http://services.moe.gov.eg/vIsual book/first/publish flagsExaminer.rar‏ 


مشروع " كيفية حساب الزمن بالثانية اعتبارا من تاريخ محدد" 1 Date Calculator‏ 
http://services.moe.gov.eg/visual book/first/publish data calculator.rar‏ 


مشروع " كيفية حساب الزمن بالنانية من أي تاریخ باستخدام النتيجة" 2 Date Calculator‏ 
http://services.moe.gov.eg/visual book/first/publish date calculator2.rar‏ 


أستخدام برنامج لفك ضغط الملفات مJû Winrar - WinZip‏ 
٠‏ أستخدام حزمة 2.0 )اه۷ ءمmها۴‏ tءN.‏ لتشغيل الملفات التنفيذية. ( فى حالة عدم وجود الإنترنت) 
ه البرامج مفتوحة مصدر م€0d‏ ١ء۲ Su‏ مرفقة مع الكتاب الألكتروني. 
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